1 A=A+1
2 IFA=1THENLOAD"FALCON.ML1",8,1
3 IFA=2THENLOAD"FALCON.ML2",8,1
5 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(142)
10 GOSUB55
11 PRINT"[147] PRESS FOR:[146]    SHIPS    TIME!"
12 PRINT"(EASY) F-1:[146]     50       400"
13 PRINT"       F-2:[146]     75       525"
14 PRINT"       F-3:[146]     100      600"
15 PRINT"       F-4:[146]     125      625"
16 PRINT"       F-5:[146]     150      600"
17 PRINT"       F-6:[146]     175      525"
18 PRINT"       F-7:[146]     200      400"
19 PRINT"(HARD) F-8:[146]     225      225"
20 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]ENTER  F-1:[146] TO  F-8:[146]"
21 PRINT"YOUR CHOICE IS:  ";
22 GETA$:IFA$=""THEN22
23 A=ASC(A$):IFA<133ORA>140THEN22
24 IFA=133THENSH=50:PX=400:PRINT" F-1 [146]       ":GOTO32
25 IFA=137THENSH=75:PX=525:PRINT" F-2 [146]       ":GOTO32
26 IFA=134THENSH=100:PX=600:PRINT" F-3 [146]       ":GOTO32
27 IFA=138THENSH=125:PX=625:PRINT" F-4 [146]       ":GOTO32
28 IFA=135THENSH=150:PX=600:PRINT" F-5 [146]       ":GOTO32
29 IFA=139THENSH=175:PX=525:PRINT" F-6 [146]       ":GOTO32
30 IFA=136THENSH=200:PX=400:PRINT" F-7 [146]       ":GOTO32
31 IFA=140THENSH=225:PX=225:PRINT" F-8 [146]       "
32 POKE767,SH:FORD=0TO700:NEXT
33 PRINT"PLEASE WAIT: THE UNIVERSE IS BEING MADE";:FORD=0TO1400:NEXT
50 PRINT"[147]":F=PEEK(53278):POKE49989,194:POKE49994,63:GOTO100
55 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
57 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
59 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60 PRINT"          LOADSTAR PRESENTS:"
62 PRINT"         FALCON AND THE ENEMY"
64 PRINT"[150]            BY THOMAS HAYES"
65 PRINT"            COPYRIGHT  1987"
66 PRINT"        [154]PRESS SPACE [154]TO CONTINUE.":POKE198,.
68 GETA$:IFA$<>" "THEN68
70 RETURN
100 IFAG=0THENGOSUB4000
101 SYS49987:POKEV+21,143:FORL=0TOPX:SYSXX:POKE2,(RND(1)*15)+1
102 PRINTAL$O$;:SYSXX+6:FORS=0TO 5:SYSXX:SYSXX+12:SYSXX+12:SYSXX+12
103 AG=0:IFPEEK(198)<>0THEN61000
110 POKE821,(RND(1)*181)+58:POKE822,(RND(1)*159)+60:SYSXX+6:SYSXX+12
115 QO=PEEK(767):IFQO=0ORQO>225THEN300
130 SYSXX:PRINTBL$"+"PEEK(767);:SYSXX+6:NEXTS
140 SYSXX:PRINT"[157][157][157][157][157]"PEEK(767)-SH;:SYSXX+6:SYSXX:PRINT"[157] ";G$PX-L;
150 SYSXX+6:SYSXX:PRINTAL$I$O$;:SYSXX+6:NEXTL:GOTO1000
300 GOSUB2000:
400 PRINT"*****************************************";
401 PRINT" YOU HAVE SAVED THE LIVES OF MILLIONS *";
402 BS$="*                                      *":PRINTBS$BS$BS$BS$BS$;
403 PRINT"****************************************[146]";
404 PRINT"CONGRATULATIONS";:GOSUB3000:PRINT
405 PRINT"PRESS ANY KEY FOR ANOTHER MISSION"
406 PRINT"^^^^^^^^^^^^^^^^^^^^^^^^^^^"
407 PRINT"^[146]   PRESS SPACE TO QUIT   ^"
408 PRINT"^^^^^^^^^^^^^^^^^^^^^^^^^^^";:GOTO1060
1000 GOSUB2000:
1010 RI$="[159]":R$="[157][157][157][157][157][157][157][157][157]"
1020 RP$="[219][157][157][157][157][213][192][192][177][192][192][201][157][157][157][157][157][157][157][157][213][203]     [202][201]":RP$=RP$+R$:
1030 RP$=RP$+"[221] [156]R.I.P.[159][221]"+R$+"[221]       [221]"+R$+"[221]       [221]"+R$+"[221][150]YOUR[159]   [221]"
1040 RP$=RP$+R$+"[221][150]GRAVE[159]  [221]"+R$+"[221][150]AWAITS[159] [221]"+R$+"[173][192][192][192][192][192][192][192][189]"
1045 PRINTRI$RP$
1050 PRINT" YOU HAVE FAILED! [146]":GOSUB3000:PRINT"   THE RESULTS OF"
1051 PRINT" YOUR EFFORTS LIE":PRINT" TO THE RIGHT."
1052 PRINT" [156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][223][146]":PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][169]":GOSUB3000
1053 PRINT"      HOWEVER [146]":GOSUB3000:PRINT"   THE MOTHER SHIP"
1054 PRINT" WAS ABLE TO FIGHT":PRINT" OFF THE ATTACK."
1055 GOSUB3000:PRINT"   YOU STILL HAVE":PRINT" A CHANCE.":GOSUB3000
1056 PRINTSPC(15)"IF YOU WISH":PRINTSPC(12)"ANOTHER MISSION,"
1057 PRINTSPC(11)"[156]                   ":PRINTSPC(11)"  [146] PRESS ANY KEY [156]  "
1058 PRINTSPC(11)"                   "
1059 PRINTSPC(10)"<PRESS SPACE TO QUIT>"
1060 IFPEEK(197)=64THEN1060
1061 IFPEEK(197)<>60THENPRINT"[147]":RESTORE:GOTO10
1999 GOTO60000
2000 POKE49989,234:POKE49994,49:SYS49987:S=54272
2005 FORL=STOS+24:POKEL,0:NEXT:POKEV+21,0:PRINT"[147]":RETURN
3000 FORT=0 TO 950:NEXTT:RETURN
4000 PRINT"[147]";
4010 V=53248:REM **********************
4011 POKE2040,192:POKEV,24:POKEV+1,142:POKEV+39,7:
4012 POKE2041,193:POKEV+2,248:POKEV+3,142:POKEV+40,7:
4013 POKE2042,194:POKEV+4,136:POKEV+5,50:POKEV+41,7:
4014 POKE2043,195:POKEV+6,136:POKEV+7,229:POKEV+42,7:
4015 POKEV+43,5:POKEV+28,192:POKEV+37,2:POKEV+38,7
4016 POKE2046,200:POKE2047,199:POKEV+46,1:
4020 Z$="":Z1$="         [146]"
4021 Z2$=" [146]        [146]":Z3$=" [156]        [146]":Z4$=" [156] [146]TIME![156]  [146]"
4022 Z5$=" [156] [146]SHIPS[156]  [146]":Z6$=Z3$
4023 BL$="     [157][157][157][157][157]"
4024 G$="    [157][157][157][157]":XX=49625
4025 AL$=""
4026 I$="":O$="[159]A      [157][157][157][157][157][157][157] L     [157][157][157][157][157][157][157]  I    "
4027 O$=O$+"[157][157][157][157][157][157][157]   V   [157][157][157][157][157][157][157]    E  [157][157][157][157][157][157][157]     ! [146]"
4050 PRINT"[147]";Z$;Z1$;Z$;Z2$;Z$;Z2$;Z$;Z2$;Z$;Z3$;Z$;Z4$;Z$;Z3$;Z$;Z1$;Z$;
4051 PRINTZ2$;Z$;Z2$;Z$;Z2$;Z$;Z3$;Z$;Z5$;Z$;Z3$;Z$;Z1$;Z$;Z2$;Z$;Z2$;Z$;
4052 PRINTZ2$;Z$;Z2$;Z$;Z2$;Z$;Z2$;Z$;Z3$;Z$;Z6$;Z$;Z3$;Z$;"        [146]";
4053 POKE2023,160:PRINTBL$"[157][192][192][192][192][192][192][192]";:POKE56295,2:
4056 PRINT"";
4057 PRINT"[156]ANY[157][157][157]KEY[157][157][157][157]QUITS"
4100 FORX=55296 TO 55416 STEP40:FORA=0TO30:POKEX+A,1:NEXTA:NEXTX
4112 FORX=56136 TO 56256 STEP40:FORA=0TO30:POKEX+A,1:NEXTA:NEXTX
4113 FORX=55456 TO 56096 STEP40:FORA=0TO5:POKEX+A,1:POKEX+A+25,1:NEXT:NEXT
4114 FORY=55462 TO 56102 STEP 40:FORA=0 TO 18:POKEY+A,12:NEXTA:NEXTY
4115 FORZ=55668 TO 55908 STEP 40:FORA=0 TO 6:POKEZ+A,11:NEXTA:NEXTZ
4200 S=54272:FORL=STOS+24:POKEL,0:NEXTL:POKES+24,15
4205 REM ******** VOICE #1 ***********
4210 POKES+5,10:POKES+6,242:POKES+1,255:
4215 REM ******** VOICE #2 ***********
4220 POKES+12,10:POKES+13,2:POKES+8,25:POKES+9,9:POKES+10,55
4225 REM ******** VOICE #3 ***********
4230 POKES+19,31:POKES+20,241:POKES+15,5:POKES+18,129
4500 RETURN
60000 REM END
60005 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60007 IFER<>63THENEND
60010 LOAD"HELLO CONNECT",8
60020 END
60030 :
61000 REM QUIT?
61010 POKE53248+21,0:POKE54296,0
61020 PRINT"DO YOU WANT TO QUIT (Y/N)?"
61030 IFPEEK(197)=64THEN61030
61032 Q9=PEEK(197):POKE198,0
61040 IFQ9=25THENPRINT"[147]":GOTO1056
61050 IFQ9=39THENAG=1:PRINT"[145][145]                          ":POKE54296,15:GOTO100
61060 GOTO61030